home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / editor / chktex.lha / chktex / chktex.pl < prev    next >
Perl Script  |  1996-01-25  |  1KB  |  39 lines
  1. #!/usr/bin/perl
  2.  
  3. ;#  ChkTeX.pl v1.0, converts chktex output into UNIX-error like.
  4. ;#  Copyright (C) 1995 Jens T. Berger Thielemann
  5. ;#
  6. ;#  This program is free software; you can redistribute it and/or modify
  7. ;#  it under the terms of the GNU General Public License as published by
  8. ;#  the Free Software Foundation; either version 2 of the License, or
  9. ;#  (at your option) any later version.
  10. ;#
  11. ;#  This program is distributed in the hope that it will be useful,
  12. ;#  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. ;#  GNU General Public License for more details.
  15. ;#
  16. ;#  You should have received a copy of the GNU General Public License
  17. ;#  along with this program; if not, write to the Free Software
  18. ;#  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19. ;#
  20. ;#  Contact the author at:
  21. ;#        Jens Berger
  22. ;#        Spektrumvn. 4
  23. ;#        N-0666 Oslo
  24. ;#        Norway
  25. ;#        E-mail: <jensthi@ifi.uio.no>
  26. ;#
  27. ;#
  28. ;#
  29.  
  30.  
  31. $name = "chktex -v0s::: " . join(' ', @ARGV) . "|";
  32.  
  33. open(FILE, $name) || die "Could not run ChkTeX.";
  34.  
  35. while(<FILE>) {
  36.     ($file, $line, $col, $num, $msg) = split(/:::/, $_, 5);
  37.     print "\"$file\", line $line: $msg";
  38. }
  39.